0 IF PEEK(50307)=120 THEN POKE50257,0
220 POKE53280,11:POKE53281,11:POKE646,13
230 REM
240 OPEN1,0
250 DIMM$(11),WO$(6),AR$(365),AZ$(3),MX(3)
260 SC$="[147]        [203]ALENDER VON [196]ANIEL [210]OTH       [157][148] [146]"
270 FORI=0TO11
280 READM$(I)
290 NEXTI
300 FORI=0TO6
310 READWO$(I)
320 NEXTI
330 REM
340 DATA"[202]ANUAR","[198]EBRUAR","[205]AERZ","[193]PRIL","[205]AI","[202]UNI"
350 DATA"[202]ULI","[193]UGUST","[211]EPTEMBER","[207]KTOBER","[206]OVEMBER","[196]EZEMBER"
360 DATA"[205]ONTAG","[196]IENSTAG","[205]ITTWOCH"
370 DATA"[196]ONNERSTAG","[198]REITAG","[211]AMSTAG","[211]ONNTAG"
380 REM
390 PRINTSC$;"                [203]ALENDER
400 [153]"                TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
410 PRINT" 1. [213]MRECHNUNG VON [202]ULIANISCHEM [196]ATUM"
420 PRINT"    IN [203]ALENDERDATUM"
430 PRINT" 2. [213]MRECHNUNG VON [203]ALENDERDATUM IN"
440 PRINT"    [202]ULIANISCHES [196]ATUM"
450 PRINT" 3. [212]AGE ZWISCHEN [196]ATEN"
460 PRINT" 4. [196]ATUM + [212]AGESZAHL"
470 PRINT" 5. [196]ATUM - [212]AGESZAHL"
480 PRINT" 6. [215]OCHENTAG ZUM [196]ATUM"
490 PRINT" 7. [205]ONATSKALENDER"
500 PRINT" 8. [198]EIERTAGE"
510 PRINT" 9. [213]RLAUBSTAGEBERECHNUNG"
520 PRINT"    [215]AEHLEN [211]IE ! (1-9) ";
530 REM
540 POKE204,0
550 GETAN$:IFAN$=""THEN550
560 IFPEEK(207)THEN560
570 POKE204,1
580 REM
590 ONVAL(AN$)GOTO610,750,960,1410,1610,1810,1960,2320,3110
600 GOTO540
610 PRINTSC$;"  [213]MRECHNUNG VON [202]ULIANISCHEM [196]ATUM IN"
620 PRINT"              [203]ALENDERDATUM"
630 PRINT"              '_' ZUM [205]ENU"
640 PRINT" [199]EBEN [211]IE BITTE DAS [202]ULIANISCHE [196]ATUM"
650 PRINT" EIN: ";:AZ=1:FZ=1:MX(1)=7:GOSUB4430:FZ=0
660 JD=VAL(AZ$(1))
670 REM
680 GOSUB4070
690 REM
700 PRINT" [196]ER";JD;"[157]. [212]AG DER [202]ULIANISCHEN"
710 PRINT" [212]AGESZAEHLUNG IST DER";INT(D);"[157].";M;"[157].";J
720 PRINT" UM ";H;"[213]HR";I"[157].
730 [143]
740 [137]4340
750 [153]SC$;"    (null)MRECHNUNG VON (null)ALENDERDATUM IN"
760 [153]"           MID$ULIANISCHES STR$ATUM"
770 [153]"              '_' ZUM (null)ENU
780 PRINT" [199]EBEN [211]IE BITTE DAS [196]ATUM IN DER [198]ORM"
790 PRINT" 'TT.MM.JJJJ' EIN."
800 PRINT" : ";:AZ=3:MX(1)=2:MX(2)=2:MX(3)=4:GOSUB4430
810 D=VAL(AZ$(1)):M=VAL(AZ$(2)):J=VAL(AZ$(3))
820 PRINT" [213]HRZEIT 'HH.MM': ";:AZ=2:MX(1)=2:MX(2)=2:GOSUB4430
830 HO=VAL(AZ$(1)):MI=VAL(AZ$(2))
840 IFHO<0ORHO>23ORMI<0ORMI>59THENPRINT" [198]ALSCHE [197]INGABE!":FORT=0TO1000:NEXT:GOTO750
850 T=HO+MI/100
860 T=INT(T)+(T-INT(T))/.6
870 D=D+T/24
880 REM
890 GOSUB4190
900 REM
910 IFFLTHENFL=0:GOTO590
920 PRINT" [196]AS [202]ULIANISCHE [196]ATUM ZUM OBIGEN [196]ATUM"
930 PRINT" LAUTET:";JD
940 REM
950 GOTO4340
960 PRINT"[147]           [212]AGE ZWISCHEN [196]ATEN"
970 PRINT"              '_' ZUM [205]ENU
980 [153]" CHR$EBEN (null)IE BITTE DAS ERSTE STR$ATUM IN DER"
990 [153]" ASCORM 'TT.MM.JJJJ' EIN."
1000 [153]" : ";:AZ[178]3:MX(1)[178]2:MX(2)[178]2:MX(3)[178]4:[141]4430
1010 D[178][197](AZ$(1)):M[178][197](AZ$(2)):J[178][197](AZ$(3))
1020 [153]" (null)HRZEIT 'HH.MM': ";:AZ[178]2:MX(1)[178]2:MX(2)[178]2:[141]4430
1030 HO[178][197](AZ$(1)):MI[178][197](AZ$(2))
1040 [139]HO[179]0[176]HO[177]23[176]MI[179]0[176]MI[177]59[167][153]" ASCALSCHE VALINGABE!":[129]T[178]0[164]1000:[130]:[137]960
1050 T[178]HO[170]MI[173]100
1060 T1[178][181](T)[170](T[171][181](T))[173].6
1070 [143]
1080 [141]4190
1090 [143]
1100 [139]FL[167]FL[178]0:[137]590
1110 D1[178]JD
1120 [153]" CHR$EBEN (null)IE BITTE DAS ZWEITE STR$ATUM IN DER"
1130 [153]"ON ASCORM 'TT.MM.JJJJ' EIN."
1140 [153]" : ";:AZ[178]3:MX(1)[178]2:MX(2)[178]2:MX(3)[178]4:[141]4430
1150 D[178][197](AZ$(1)):M[178][197](AZ$(2)):J[178][197](AZ$(3))
1160 [153]" (null)HRZEIT 'HH.MM': ";:AZ[178]2:MX(1)[178]2:MX(2)[178]2:[141]4430
1170 HO[178][197](AZ$(1)):MI[178][197](AZ$(2))
1180 [139]HO[179]0[176]HO[177]23[176]MI[179]0[176]MI[177]59[167][153]" ASCALSCHE VALINGABE!":[129]T[178]0[164]1000:[130]:[137]960
1190 T[178]HO[170]MI[173]100
1200 T2[178][181](T)[170](T[171][181](T))[173].6
1210 [143]
1220 [141]4190
1230 [143]
1240 [139]FL[167]FL[178]0:[137]590
1250 DD[178][182]([181](JD[171]D1))
1260 [139]JD[179]D1[167]DT[178]T1[171]T2[170].0000001:[137]1280
1270 DT[178]T2[171]T1[170].0000001
1280 [139][180](DT)[178][171]1[167]DT[178]DT[170]24:DD[178]DD[171]1
1290 H[178][181](DT):I[178][181]((DT[171][181](DT))[172]60)
1300 [153]" STR$IE ATNNZAHL DER (null)AGE ZWISCHEN DEN"
1310 [153]" BEIDEN STR$ATEN BETRAEGT";DD;
1320 [139]DD[178]1[167][153]"(null)AG,":[137]1340
1330 [153]"(null)AGE,"
1340 [153]H;
1350 [139]H[178]1[167][153]"(null)TUNDE UND";I;:[137]1370
1360 [153]"(null)TUNDEN UND";I;
1370 [139]I[178]1[167][153]"(null)INUTE.":[137]1400
1380 [153]"(null)INUTEN."
1390 [143]
1400 [137]4340
1410 [153]SC$;"           STR$ATUM + (null)AGESANZAHL"
1420 [153]"              '_' ZUM (null)ENU
1430 PRINT" [194]ITTE GEBEN [211]IE DAS [196]ATUM IN DER [198]ORM"
1440 PRINT" 'TT.MM.JJJJ' EIN."
1450 PRINT" : ";:AZ=3:MX(1)=2:MX(2)=2:MX(3)=4:GOSUB4430
1460 D=VAL(AZ$(1)):M=VAL(AZ$(2)):J=VAL(AZ$(3))
1470 REM
1480 GOSUB4190
1490 REM
1500 IFFLTHENFL=0:GOTO590
1510 PRINT" [213]ND JETZT GEBEN [211]IE DIE [193]NZAHL DER [212]AGE"
1520 PRINT"[145] AN, DIE [211]IE ZU DEM [196]ATUM ADDIEREN"
1530 PRINT" WOLLEN: ";:AZ=1:MX(1)=7:GOSUB4430
1540 S=VAL(AZ$(1))
1550 JD=JD+S
1560 REM
1570 GOSUB4070
1580 PRINT" [196]AS NEUE [196]ATUM LAUTET:";D;"[157].";M;"[157].";J
1590 REM
1600 GOTO4340
1610 PRINTSC$;"           [196]ATUM - [212]AGESANZAHL"
1620 PRINT"              '_' ZUM [205]ENU
1630 [153]" PEEKITTE GEBEN (null)IE DAS STR$ATUM IN DER ASCORM"
1640 [153]" 'TT.MM.JJJJ' EIN."
1650 [153]" : ";:AZ[178]3:MX(1)[178]2:MX(2)[178]2:MX(3)[178]4:[141]4430
1660 D[178][197](AZ$(1)):M[178][197](AZ$(2)):J[178][197](AZ$(3))
1670 [143]
1680 [141]4190
1690 [143]
1700 [139]FL[167]FL[178]0:[137]590
1710 [153]" (null)ND JETZT GEBEN (null)IE DIE ATNNZAHL DER (null)AGE"
1720 [153]"ON AN, DIE (null)IE VON DEM STR$ATUM ABZIEHEN"
1730 [153]" WOLLEN: ";:AZ[178]1:MX(1)[178]7:[141]4430
1740 S[178][197](AZ$(1))
1750 JD[178]JD[171]S
1760 [143]
1770 [141]4070
1780 [153]" STR$AS NEUE STR$ATUM LAUTET:";D;"CMD.";M;"CMD.";J
1790 [143]
1800 [137]4340
1810 [153]SC$;"           (null)OCHENTAG ZUM STR$ATUM"
1820 [153]"              '_' ZUM (null)ENU
1830 PRINT" [194]ITTE GEBEN [211]IE DAS [196]ATUM IN DER [198]ORM"
1840 PRINT" 'TT.MM.JJJJ' ZU DEM [211]IE DEN"
1850 PRINT" [215]OCHENTAG WISSEN WOLLEN EIN."
1860 PRINT" : ";:AZ=3:MX(1)=2:MX(2)=2:MX(3)=4:GOSUB4430
1870 D=VAL(AZ$(1)):M=VAL(AZ$(2)):J=VAL(AZ$(3))
1880 GOSUB4190
1890 IFFLTHENFL=0:GOTO590
1900 PRINT" [196]ER ";D;"[157].";M;"[157].";J;"IST EIN ";
1910 W=JD+.5
1920 REM
1930 PRINTWO$(W-INT(W/7)*7)"."
1940 REM
1950 GOTO4340
1960 PRINTSC$;"                [203]ALENDER"
1970 PRINT"              '_' ZUM [205]ENU
1980 WO$[178]"(null)ONSTR$IE(null)ITSTR$ONASCRE(null)AM(null)ON"
1990 CD$[178]"":CD$[178]CD$[170]CD$[170]CD$[170]CD$
2000 [153]:[153]" PEEKITTE GEBEN (null)IE MID$AHR UND (null)ONAT FUER "
2010 [153]" DEN (null)ALENDER AN. (M.J): ";:AZ[178]2:MX(1)[178]2:MX(2)[178]4:[141]4430
2020 M[178][197](AZ$(1)):J[178][197](AZ$(2))
2030 D[178]1:[141]4190
2040 [139]FL[167]FL[178]0:[137]590
2050 [153]SC$;"";J;""
2060 [153]"   ";M$(M[171]1):[153]"   ";[200]("TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(",[195](M$(M[171]1)))
2070 [143]
2080 D[178]1:[141]4290:L1[178]JD
2090 M[178]M[170]1:[139]M[177]12[167]M[178]1:J[178]J[170]1
2100 [143]
2110 [141]4290:L2[178]JD[171]L1
2120 [129]I[178]1[164]21[169]3
2130 [153][202](WO$,I,3)
2140 [130]
2150 L1[178]L1[170]6.5:L3[178]L1[171][181](L1[173]7)[172]7
2160 [153]""[200](CD$,L3[170]3)
2170 [139]L3[178]6[167]L3[178][171]1
2180 [129]I[178]1[164]L2
2190 L4[178]I[170]L3
2200 [153]""[200](CD$,L4[171][181](L4[173]7)[172]7[170]4)[163][181](L4[173]7)[172]3[170]5);I
2210 [130]I
2220 [153]""[200](CD$,14)
2230 [153]" (null)EITERER (null)ALENDERAUSDRUCK FUER DEN"
2240 [153]" NAECHSTEN (null)ONAT ERWUENSCHT ? (J/N) ";
2250 [151]204,0
2260 [161]TA$:[139]TA$[178]""[167]2260
2270 [139][194](207)[167]2270
2280 [151]204,1
2290 [139]TA$[178]"N"[167][153]:[137]4340
2300 [139]TA$[179][177]"J"[167]2250
2310 [137]2050
2320 [153]SC$;"                ASCEIERTAGE"
2330 [153]"              '_' ZUM (null)ENU
2340 PRINT" [199]EBEN [211]IE DAS [202]AHR EIN, ZU DEM [211]IE DIE"
2350 PRINT" [198]EIERTAGE WISSEN WOLLEN: ";:AZ=1:MX(1)=4:GOSUB4430
2360 X=VAL(AZ$(1))
2370 IFX<=1582THENPRINT" [196]AS [196]ATUM LAG VOR DER [203]ALENDERREFORM IM [202]AHR 1582 !"
2380 IFX<=1582THENFORI=0TO1500:NEXT:GOTO2320
2390 REM
2400 A=X-INT(X/19)*19
2410 B=INT(X/100):C=X-B*100
2420 D=INT(B/4):E=B-D*4
2430 F=INT((B+8)/25)
2440 G=INT((B-F+1)/3)
2450 H=19*A+B-D-G+15:H=H-INT(H/30)*30
2460 I=INT(C/4):K=C-I*4
2470 L=32+2*E+2*I-H-K:L=L-INT(L/7)*7
2480 M=INT((A+11*H+22*L)/451)
2490 N=INT((H+L-7*M+114)/31):P=H+L-7*M+114-N*31
2500 IFFFTHEN2540
2510 PRINTSC$"            [198]EIERTAGE "X
2520 PRINT"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2530 PRINT" [194]EWEGLICHE [198]EIERTAGE:
2540 NN[178]N:M[178]N:D[178]P[170]1:J[178]X:[141]4290:JD[178]JD[170]1:[141]4070
2550 M[178]NN:D[178]P[170]1:[141]4290
2560 JD[178]JD[171]2:[141]4070
2570 [139]FF[167]2600
2580 [153]" (null)ARFREITAG";[163]22);D;"CMD.";M$(M[171]1)
2590 [153]" (null)STERSONNTAG";[163]22);P[170]1;"CMD.";M$(NN[171]1)
2600 [139]FF[167][139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F":AR$(JD[171]UA[170]3)[178]"F"
2610 JD[178]JD[170]41
2620 [141]4070
2630 [139]FF[167]2650
2640 [153]" LENHRISTI LEFT$IMMELFAHRT";[163]22);D;"CMD.";M$(M[171]1)
2650 [139]FF[167][139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2660 JD[178]JD[170]10
2670 [141]4070
2680 [139]FF[167]2700
2690 [153]" (null)FINGSTSONNTAG";[163]22);D;"CMD.";M$(M[171]1)
2700 [139]FF[167][139]JD[177][178]UA[175]JD[178][179]UE[167]AR$(JD[171]UA[170]1)[178]"F"
2710 JD[178]JD[170]11
2720 [141]4070
2730 [139]FF[167]2750
2740 [153]" ASCRONLEICHNAM";[163]22);D;"CMD.";M$(M[171]1)
2750 [139]FF[167][139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2760 D[178]30:M[178]11:[141]4290
2770 X[178]JD[170].5:X[178]X[171][181](X[173]7)[172]7
2780 X[178]18[171](X[177]3)[172]7[171]X:D[178]X:[141]4290
2790 [139]FF[167]2810
2800 [153]" PEEKUSS- UND PEEKETTAG";[163]22);X;"CMD.";M$(M[171]1)
2810 [139]FF[178]0[167]2910
2820 [139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2830 D[178]1:M[178]1:[141]4290:[139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2840 D[178]1:M[178]5:[141]4290:[139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2850 D[178]17:M[178]6:[141]4290:[139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2860 D[178]1:M[178]11:[141]4290:[139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2870 D[178]25:M[178]12:[141]4290:[139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2880 D[178]26:M[178]12:[141]4290:[139]JD[177][178]UA[175]JD[179][178]UE[167]AR$(JD[171]UA)[178]"F"
2890 [139]J[179]JE[167]X[178]J[170]1:[137]2400
2900 [142]
2910 [153]" ASCESTSTEHENDE ASCEIERTAGE:
2920 PRINT" [206]EUJAHR (";
2930 D=1:M=1:GOSUB4290:WX=JD+.5:WX=WX-INT(WX/7)*7:PRINTWO$(WX)")"TAB(28);
2940 PRINT"1.[202]ANUAR
2950 [153]" (null)AIFEIERTAG (";
2960 D[178]1:M[178]5:[141]4290:WX[178]JD[170].5:WX[178]WX[171][181](WX[173]7)[172]7:[153]WO$(WX)")"[163]28);
2970 [153]"1.(null)AI
2980 PRINT" [212].D.D.[197]INHEIT (";
2990 D=17:M=6:GOSUB4290:WX=JD+.5:WX=WX-INT(WX/7)*7:PRINTWO$(WX)")"TAB(28);
3000 PRINT"17.[202]UNI
3010 [153]" ATNLLERHEILIGEN (";
3020 D[178]1:M[178]11:[141]4290:WX[178]JD[170].5:WX[178]WX[171][181](WX[173]7)[172]7:[153]WO$(WX)")"[163]28);
3030 [153]"1.(null)OVEMBER
3040 D=25:M=12:GOSUB4290
3050 WX=JD+.5:WX=WX-INT(WX/7)*7
3060 PRINT" [215]EIHNACHTEN "TAB(28)"25./26.[196]EZ.":PRINT" ("WO$(WX)"/";
3070 IFWX=6THENWX=-1
3080 PRINTWO$(WX+1);")"
3090 REM
3100 GOTO4340
3110 PRINTSC$"          [213]RLAUBSTAGEBERECHNUNG"
3120 PRINT"              '_' ZUM [205]ENU"
3130 PRINT"  [199]EBEN [211]IE BITTE DEN [196]ATUMSBEREICH IN"
3140 PRINT"   DER [198]ORM 'TT.MM.JJJJ' EIN,"
3150 PRINT"   INDEM [211]IE [213]RLAUB MACHEN MOECHTEN:"
3160 PRINT"  [193]NFANGSDATUM: ";:AZ=3:MX(1)=2:MX(2)=2:MX(3)=4:GOSUB4430
3170 DA$=AZ$(1):MA$=AZ$(2):JA$=AZ$(3)
3180 DA=VAL(DA$):D=DA:MA=VAL(MA$):M=MA:JA=VAL(JA$):J=JA
3190 GOSUB4190:UA=JD
3200 IFFL=1THENFL=0:GOTO590
3210 PRINT"  [197]NDDATUM:     ";:AZ=3:MX(1)=2:MX(2)=2:MX(3)=4:GOSUB4430
3220 DE$=AZ$(1):ME$=AZ$(2):JE$=AZ$(3)
3230 DE=VAL(DE$):D=DE:ME=VAL(ME$):M=ME:JE=VAL(JE$):J=JE
3240 GOSUB4190:UE=JD
3250 IFFL=1THENFL=0:GOTO590
3260 IFUE<=UATHENPRINT" [198]ALSCHE [197]INGABE!":FORT=0TO1000:NEXT:GOTO3110
3270 IFUE-UA>365THENPRINT" [218]U GROSSER [218]EITRAUM!":FORT=0TO1000:NEXT:GOTO3110
3280 PRINT" 1. [197]INGABE VON      2. [197]INGABE VON"
3290 PRINT" [193]RBEITSTAGEN, UND   [213]RLAUBSTAGEN, UND"
3300 PRINT" [194]ERECHNUNG EINES    [194]ERECHNUNG EINES"
3310 PRINT" MOEGLICHST LANGEN   [213]RLAUBS MIT MOEG-"
3320 PRINT" [213]RLAUBS.            LICHST WENIGEN"
3330 PRINT"                     [193]RBEITSTAGEN."
3340 PRINT" [194]ITTE WAEHLEN [211]IE '1' ODER '2' ! ";
3350 POKE204,0
3360 GETTA$:IFTA$=""THEN3360
3370 IFPEEK(207)THEN3370
3380 POKE204,1
3390 IFTA$<>"1"ANDTA$<>"2"THEN3350
3400 IFTA$="1"THENFU=1:GOTO3420
3410 FU=2
3420 PRINT"[145][145][145][145][145][145][145][145][145]"
3430 FORI=0TO9
3440 PRINT"                                       "
3450 NEXT
3460 PRINT"[145][145][145][145][145][145][145][145][145][145]"
3470 PRINT" [194]ITTE GEBEN [211]IE DIE [193]NZAHL DER"
3480 IFFU=1THENPRINT" [193]RBEITSTAGE EIN: ";:GOTO3500
3490 PRINT" [213]RLAUBSTAGE EIN: ";
3500 AZ=1:MX(1)=3:GOSUB4430
3510 UT=VAL(AZ$(1))
3520 IFUT>UE-UATHENPRINT" [204]IEGT NICHT MEHR IM OBIGEN [194]EREICH!"
3530 IFUT>UE-UATHENFORT=0TO1500:NEXT:GOTO3110
3540 IFUT<=0THENPRINT" [198]ALSCHE [197]INGABE!":FORT=0TO1000:NEXT:GOTO3110
3550 PRINT" [194]ITTE WARTEN! ";
3560 FORI=0TO365:AR$(I)="":NEXTI
3570 FORI=0TOUE-UA
3580 JD=I+UA+.5:S=JD-INT(JD/7)*7
3590 IFS=5ORS=6THENAR$(I)="F"
3600 NEXTI
3610 X=JA:FF=1:GOSUB2400:FF=0
3620 IFFU=2THEN3870
3630 PRINTSC$"         [213]RLAUBSTAGEBERECHNUNG"
3640 PRINT"[197]RSTER GUENSTIGER [213]RLAUB (VIELE [213]RLAUBS-";
3650 PRINT"TAGE BEI WENIGEN [193]RBEITSTAGEN) IM [218]EIT-"
3660 PRINT"RAUM VOM "DA$". "MA$". "JA$" BIS "DE$". "ME$". "JE$":"
3670 PRINT" [194]ITTE WARTEN![145]"
3680 AT=UT:JO=0:JD=0
3690 FORI=UATOUE-AT-1:AZ=0:L=0
3700 IFI-UA+L-365>.THEN3750
3710 IFAR$(I-UA+L)=""THENAZ=AZ+1
3720 IFAZ<=ATTHENL=L+1:GOTO3700
3730 IFL>JOTHENJO=L:JD=I
3740 NEXTI
3750 JJ=JD:JD=UE+1:GOSUB4070
3760 IFD=1ANDM=1ANDUE=JJ+JO-1THENJO=JO+1
3770 JD=JJ
3780 GOSUB4070
3790 PRINT" [213]RLAUBSBEGINN:    "D"[157]."M"[157]."J
3800 JD=JD+1:PRINTTAB(20)WO$(JD-INT(JD/7)*7)"":JD=JD-1
3810 JD=JD+JO:GOSUB4070:PRINT" 1. [193]RBEITSTAG:    "D"[157]."M"[157]."J
3820 JD=JD+1:PRINTTAB(20)WO$(JD-INT(JD/7)*7)""
3830 PRINT" [213]RLAUBSDAUER:     "JO"[212]AG";
3840 IFJO<>1THENPRINT"E";
3850 PRINT:PRINT" [196]AVON [193]RBEITSTAGE:"AT
3860 GOTO4340
3870 PRINTSC$"         [213]RLAUBSTAGEBERECHNUNG"
3880 PRINT"[197]RSTER GUENSTIGER [213]RLAUB (VIELE [213]RLAUBS-";
3890 PRINT"TAGE BEI WENIGEN [193]RBEITSTAGEN) IM [218]EIT-"
3900 PRINT"RAUM VOM "DA$"."MA$"."JA$" BIS "DE$"."ME$"."JE$":"
3910 PRINT" [194]ITTE WARTEN![145]"
3920 UO=0:UN=0:FORI=UATOUE-UT+1
3930 FORJ=ITOI+UT-1
3940 IFAR$(J-UA)="F"THENUN=UN+1
3950 NEXTJ
3960 IFUN>UOTHENTE=I:UO=UN
3970 UN=0:NEXTI
3980 JD=TE:GOSUB4070
3990 PRINT" [213]RLAUBSBEGINN:    "D"[157]."M"[157]."J:GOSUB4190
4000 JD=JD+1:PRINTTAB(20)WO$(JD-INT(JD/7)*7)"":JD=JD-1
4010 JD=JD+UT:GOSUB4070:PRINT" 1. [193]RBEITSTAG:    "D"[157]."M"[157]."J
4020 JD=JD+1:PRINTTAB(20)WO$(JD-INT(JD/7)*7)"":JD=JD-1
4030 PRINT" [213]RLAUBSDAUER:     "UT"[212]AG";
4040 IFUT<>1THENPRINT"E";
4050 PRINT:PRINT" [196]AVON [193]RBEITSTAGE:"UT-UO
4060 GOTO4340
4070 REM
4080 N=JD+.5:Z=INT(N):F=N-Z
4090 IFZ<2299161THENA=Z:GOTO4120
4100 A=INT((Z-1867216.25)/36524.25)
4110 A=Z+1+A-INT(A/4)
4120 B=A+1524:C=INT((B-122.1)/365.25):K=INT(365.25*C):E=INT((B-K)/30.6001)
4130 D=B-K-INT(30.6001*E)+F
4140 M=E-1:J=C-4716
4150 IFE<=13THEN4170
4160 M=M-12:J=J+1
4170 X=(D-INT(D))*24:H=INT(X):I=INT((X-INT(X))*60)
4180 RETURN
4190 REM
4200 DX=D:MX=M:JX=J
4210 GOSUB4290
4220 GOSUB4070
4230 IFINT(DX)=INT(D)ANDMX=MTHEN4270
4240 PRINT" [197]INEN"INT(DX)"[157]."MX"[157]."JX"GIBT ES NICHT!"
4250 FORT=0TO1500:NEXT
4260 FL=1:RETURN
4270 IFD>0ANDD<32ANDM>0ANDM<13THEN4290
4280 PRINT" [198]ALSCHE [197]INGABE !":FORTM=0TO1500:NEXT:FL=1:RETURN
4290 K=10000*J+100*M+D:B=-63.5:Y=J+4712:N=M+1
4300 IFM<=2THENY=Y-1:N=N+12
4310 IFK>=15821015THENA=INT((Y+88)/100):B=B+38-A+INT(A/4)
4320 JD=INT(365.25*Y)+INT(30.6001*N)+D+B
4330 RETURN
4340 REM
4350 PRINT"[206]OCH EINMAL ? (J/N) ";
4360 POKE204,0
4370 GETA$:IFA$=""THEN4370
4380 IFPEEK(207)THEN4380
4390 POKE204,1
4400 IFA$="J"THEN590
4410 IFA$<>"N"ANDA$<>"_"THEN4360
4420 RUN
4430 FORI=1TOAZ:FP=0:AZ$(I)=""
4440 PRINT" [146]";
4450 GETTA$:IFTA$=""THEN4450
4460 LZ(I)=LEN(AZ$(I))-FP
4470 IFTA$="_"THENRUN
4480 IFMX(I)=LZ(I)ANDTA$<>CHR$(20)ANDTA$<>CHR$(13)ANDTA$<>"."THEN4450
4490 IFTA$>="0"ANDTA$<="9"THEN4520
4500 IFLZ(I)=0ANDFP=0AND(TA$="+"ORTA$="-")THEN4520
4510 IFTA$<>"."ANDTA$<>CHR$(13)ANDTA$<>CHR$(20)THEN4450
4520 IFTA$=CHR$(20)ANDLZ(I)=0ANDFP=0THEN4450
4530 IFTA$=CHR$(13)ANDLZ(I)=0ANDFP=0THEN4450
4540 IFTA$="."ANDI=AZANDFZ<>1THEN4450
4550 IFTA$=CHR$(20)ANDLZ(I)=-1ANDFP=1THENFP=0:LZ(I)=1:GOTO4450
4560 IFTA$=CHR$(20)THENLZ(I)=LZ(I)-1:AZ$(I)=LEFT$(AZ$(I),LZ(I)+FP)
4570 IFTA$=CHR$(13)ORTA$="."ANDI<AZTHENPRINTCHR$(20)".";:GOTO4630
4580 IFTA$="."ANDI<AZTHEN4630
4590 IFTA$<>CHR$(20)THENAZ$(I)=AZ$(I)+TA$:LZ(I)=LEN(AZ$(I))
4600 IFTA$="+"ORTA$="-"THENFP=1
4610 PRINTCHR$(20)TA$;
4620 GOTO4440
4630 NEXTI
4640 PRINTCHR$(20)
4650 RETURN